home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / GUI / Simple / child.au3 next >
Text File  |  2006-06-20  |  2KB  |  68 lines
  1. ;====================================================
  2. ;============= Example of a child window ============
  3. ;====================================================
  4. ; AutoIt version: 3.0.103
  5. ; Language:       English
  6. ; Author:         "SlimShady"
  7. ;
  8. ; ----------------------------------------------------------------------------
  9. ; Script Start
  10. ; ----------------------------------------------------------------------------
  11.  
  12. ;Include constants
  13. #include <GUIConstants.au3>
  14.  
  15. ;Initialize variables
  16. Global $IniFile
  17. Global $GUIWidth
  18. Global $GUIHeight
  19.  
  20. $GUIWidth = 250
  21. $GUIHeight = 250
  22.  
  23. ;Create main/parent window
  24. $ParentWin = GUICreate("Parent GUI", $GUIWidth, $GUIHeight)
  25. ;Save the position of the parent window
  26. $ParentWin_Pos = WinGetPos($ParentWin, "")
  27. ;Show the parent window/Make the parent window visible
  28. GUISetState(@SW_SHOW)
  29.  
  30. ;Create child window and add the parameter to make it the child of the parent window
  31. $ChildWin = GUICreate("Child GUI", $GUIWidth, $GUIHeight, $ParentWin_Pos[0] + 100, $ParentWin_Pos[1] + 100, -1, -1, $ParentWin)
  32. ;Show the child window/Make the child window visible
  33. GUISetState(@SW_SHOW)
  34.  
  35. ;Switch to the parent window
  36. GUISwitch($ParentWin)
  37.  
  38. ;Loop until:
  39. ;- user presses Esc when focused to the parent window
  40. ;- user presses Alt+F4 when focused to the parent window
  41. ;- user clicks the close button of the parent window
  42. While 1
  43.   ;After every loop check if the user clicked something in the GUI windows
  44.    $msg = GUIGetMsg(1)
  45.    Select
  46.      ;Check if user clicked on a close button of any of the 2 windows
  47.       Case $msg[0] = $GUI_EVENT_CLOSE
  48.         ;Check if user clicked on the close button of the child window
  49.          If $msg[1] = $ChildWin Then
  50.             MsgBox(64, "Test", "Child GUI will now close.")
  51.            ;Switch to the child window
  52.             GUISwitch($ChildWin)
  53.            ;Destroy the child GUI including the controls
  54.             GUIDelete()
  55.         ;Check if user clicked on the close button of the parent window
  56.          ElseIf $msg[1] = $ParentWin Then
  57.             MsgBox(64, "Test", "Parent GUI will now close.")
  58.            ;Switch to the parent window
  59.             GUISwitch($ParentWin)
  60.            ;Destroy the parent GUI including the controls
  61.             GUIDelete()
  62.            ;Exit the script
  63.             Exit
  64.          EndIf
  65.  
  66.    EndSelect
  67.  
  68. WEnd